home *** CD-ROM | disk | FTP | other *** search
/ PCMania 32 / PCMania CD32_2.iso / bioforge / script / ai_main.scp < prev    next >
Text File  |  1995-01-18  |  2KB  |  200 lines
  1. { MONSTER_MOVE _ATK_RANGE
  2. P ~Çü 
  3. P ~Çé 
  4. P ~Çâ 
  5. P ~Çä 
  6. ~Çé = @ÇÖ 
  7. ~Çâ = @Ç┤ 
  8. ~Çä = @Çò 
  9. @Ç¢ ENEMY 
  10. ~Çâ = ~Çâ + @Ç┤ 
  11. ~Çä = ~Çä - ~Çâ 
  12. I ~Çé IN -12 12 THEN
  13. {
  14. I ~Çä <= ~ÇÇ THEN 
  15. ~Çü = 0
  16. E I ~Çä < 150 THEN 
  17. ~Çü = 8
  18. E 
  19. ~Çü = 10
  20.  
  21. }
  22. E I ~Çé > 0 THEN 
  23. {
  24. I ~Çä < 150 THEN 
  25. {
  26. ~Çü = 4 
  27. }
  28. E 
  29. {
  30. ~Çü = 4 
  31. }
  32. }
  33. E 
  34. {
  35. I ~Çä < 150 THEN 
  36. {
  37. ~Çü = 6 
  38. }
  39. E 
  40. {
  41. ~Çü = 6 
  42. }
  43. }
  44. é ~Çü 
  45. }
  46. { READY_MONSTER_TAUNT 
  47. :LOOP
  48. â 
  49. I @Çô "atk_stand" != $üâ THEN
  50. J #Çé 
  51. }
  52. { SLUR_ENEMY_SPEECH _HANDLE 
  53. P ~Çü 
  54. P ~Çé 
  55. ~Çü = @Çà 3 5 
  56. ~Çé = @Çà 3 5 
  57. :TOP
  58. I @Çû ~ÇÇ THEN
  59. {
  60.  ~ÇÇ -1000 
  61. â 
  62. }
  63. E 
  64. é 
  65. L #Çä ~Çü 
  66. :MID
  67. I @Çû ~ÇÇ THEN
  68. â 
  69. E 
  70. é 
  71. L #Çà ~Çé 
  72. :LAST
  73. I @Çû ~ÇÇ THEN
  74. {
  75.  ~ÇÇ 1000 
  76. â 
  77. }
  78. E 
  79. é 
  80. L #Çå ~Çü 
  81. }
  82. { PAUSE_FOR_SUBTITLE
  83. :WAIT_FOR_SUBTITLE
  84. â 
  85. I @Çó ^îé == $üâ THEN
  86. J #Çê 
  87. }
  88.  
  89. { MECHO_FIRE
  90.  
  91. Ü 0 0 8 1 
  92.  @Ç╣ BOLTBLU GUN 10 225 0 0 0 
  93. }
  94.  
  95.  
  96.  
  97.  
  98.  
  99.  
  100.  
  101.  
  102.  
  103.  
  104.  
  105.  
  106.  
  107.  
  108.  
  109.  
  110.  
  111.  
  112.  
  113.  
  114.  
  115.  
  116. { GRD_WOUNDS
  117. P ~ÇÇ 
  118. P ~Çü 
  119. P ~Çé 
  120. P ~Çâ 
  121. P ~Çä 
  122. P ~Çà 
  123. P ~Çå 
  124. P ~Çç 
  125. ~Çâ = .ÇéÇà 
  126. ~Çü = .ÇéÇä 
  127. ~ÇÇ = .ÇéÇÇ 
  128. ~Çà = @Ç» ~Çü 2 6 
  129. I ~Çà > 3 THEN
  130. ~Çà = 3
  131. ~Çç = ~Çâ - ~ÇÇ 
  132. ~Çä = ~Çç / 25 
  133. I ~Çä > 3 THEN
  134. ~Çä = 3
  135. I ~Çä < 1 THEN
  136. ~Çä = 0
  137. I ~Çà < ~Çä THEN
  138. {
  139. :TOP
  140. ~Çå = @Çà 1 3 
  141. N ~Çå 
  142. {
  143. U 1
  144. I @ÇÅ ~Çü 2 || @ÇÅ ~Çü 3 || @ÇÅ ~Çü 4 THEN 
  145. J #Çï
  146. E 
  147. {
  148. ~Çé = @Çà 5 7 
  149. w CURFIG DRAWONLY CHEST PICTURE ~Çé GRD 
  150. a ~Çü ~Çé 
  151. }
  152. X ÇÇ 
  153. U 2
  154. I @ÇÅ ~Çü 5 THEN 
  155. J #Çï
  156. E 
  157. {
  158. w CURFIG DRAWONLY BACK PICTURE 8 GRD
  159. a ~Çü 5 
  160. }
  161. X ÇÇ 
  162. U 3
  163. I @ÇÅ ~Çü 6 THEN
  164. J #Çï
  165. E 
  166. {
  167. w CURFIG DRAWONLY FLEGS PICTURE 9 GRD
  168. a ~Çü 6 
  169. }
  170. X ÇÇ 
  171. }
  172. }
  173. }
  174.  
  175.  
  176. { GRD_ENTER_COMBAT _RUN_MOTION
  177. I ~ÇÇ THEN
  178. M ENTER_COMBAT
  179. w CURFIG CLEAR LHAND PICTURE 1 GRD
  180. w CURFIG CLEAR RHAN1 PICTURE 2 GRD
  181. w CURFIG CLEAR RHAN PICTURE 3 GRD
  182. w CURFIG CLEAR FLHAN PICTURE 4 GRD
  183. }
  184. { GRD_LEAVE_COMBAT
  185. w CURFIG RESTORE LHAND X GRD
  186. w CURFIG RESTORE RHAN1 X GRD
  187. w CURFIG RESTORE RHAN X GRD
  188. w CURFIG RESTORE FLHAN X GRD
  189. }
  190. { TURN_WHILE_FIRING
  191. :KEEP_TURNING
  192. â 
  193. T @ÇÖ 
  194. I @Çô FIRE_GUN THEN J #ÇÅ 
  195. }
  196.  
  197.  
  198.  
  199. //$ 26 - version number
  200.